home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
archiver
/
ldiff12s.zip
/
LDHELP.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-07-15
|
969b
|
49 lines
(*---------------------------------------------------------------------------*)
(*LDHelp.pas âwâïâvÅêù¥ü@ü@ (C) ÄOû╪ÿaòF NIFTY SDR SDI00147 1989/7/1 *)
(*$B-,F-,I-,N- *)
(*---------------------------------------------------------------------------*)
UNIT LDHelp;
INTERFACE
USES
Overlay,
MyTool,
LDVari,
LDProc;
PROCEDURE HelpJob;
PROCEDURE UseJob;
IMPLEMENTATION
PROCEDURE HelpJob;
VAR
i : BYTE;
BEGIN
FOR i:=RemarkTopMsg TO RemarkEndMsg DO WriteLn(OUTF,MEG(i));
WriteLn(OUTF);
WriteLn(OUTF,MEG(TitleMsg));
WriteLn(OUTF,MEG(LineMsg));
FOR i:=UsageTopMsg TO UsageEndMsg DO WriteLn(OUTF,MEG(i));
END;
PROCEDURE UseJob;
VAR
i : BYTE;
BEGIN
WriteLn(OUTF,MEG(TitleMsg));
WriteLn(OUTF,MEG(LineMsg));
FOR i:=UsageTopMsg TO UsageEndMsg DO WriteLn(OUTF,MEG(i));
WriteLn(OUTF,MEG(LineMsg));
END;
END.